home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / SoundAndMusic / cmix / lib / rvbset.c < prev    next >
C/C++ Source or Header  |  1989-11-22  |  441b  |  23 lines
  1. #include "../H/ugens.h"
  2. #include "../H/combs.h"
  3. #include <math.h>
  4.  
  5. float loopt[6] = {.0297,.0371,.0411,.0437,.005,.0017};
  6. float alprvt[2] = {.096835,.032924};
  7.  
  8. /* storage reqs for above are .1583*SR+18 */
  9.  
  10. rvbset(rvt,init,a)
  11. float rvt,*a;
  12. {
  13.     float rvbtime,*apoint;
  14.     int i;
  15.  
  16.     for(apoint=a, i=0; i<NCOMBS; i++) {
  17.         rvbtime = (i<(NCOMBS-2)) ? rvt : alprvt[i-(NCOMBS-2)];
  18.         combset(loopt[i],rvbtime,init,apoint);
  19.         apoint += (int)*apoint;
  20.     }
  21. }
  22.  
  23.